home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2002 November / CD 1 / APC0211D1.ISO / workshop / prog / files / ActivePerl-5.6.1.633-MSWin32.msi / _a02cd62ce8734b8a2992d1e829b209df < prev    next >
Encoding:
Text File  |  2002-05-30  |  301 b   |  19 lines
  1. package Tk::Bitmap;
  2. require Tk;
  3. import  Tk qw($XS_VERSION);
  4. require Tk::Image;
  5.  
  6. use vars qw($VERSION);
  7. $VERSION = '3.010'; # $Id: //depot/Tk8/Bitmap/Bitmap.pm#10 $
  8.  
  9. use base  qw(Tk::Image);
  10.  
  11. Construct Tk::Image 'Bitmap';
  12.  
  13. bootstrap Tk::Bitmap;
  14.  
  15. sub Tk_image { 'bitmap' }
  16.  
  17. 1;
  18. __END__
  19.